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500 



<?xml version="1.0" ?> 
<DOCUMENT> 

<MenuVariables name="MenuName" value-'Main Menu7> 
<MenuVariables name="DefaultPrompt" value="ACT_ACTIONS_PROMPT.wav"/> 
<MenuVariables name="Fallback" value="AUD_MAIN_MENU.xmr'/> 
<MenuVariables name="Type" value="MENU"/> 
<MenuVariables name="lnputMask" value="StandardMenu"/> 
<MenuVariables name-'lmages" value="7> 

<MenuVariables name="Text" value="lf you want your messages now press 1 
To send a voice message, press 2, to work with your greetings press 3, y 
if you need something else press 0.7> 

<Options name="0" value="SOUND:ACT_ACTIONS_PROMPT_2.wav" 
text="7> 

<Options name="1" value="MENU:ACT_GET_VOICE_FAX_EMAIL_MENU.xml" 
text="Access your messages."/> 

<Options name="2" value="MENU:REC_ASK_ADDRESS_MENU.xml" 
text="Send a message."/> 
<Optionsname="3" value= 

"DECISION:DECISION_DETERMINE_ACTIVE_GREETING.xml" 
text="Greetings.7> 

<Options name="4 n value="MENU:LST_ACTIONS_MENU.xml" 
text="Personalize your mailbox."/> 

<Options name="5" value='WIENU:IMj3ETJ^UMBERJv1ENU.xmr 
text="7> 

<Options name="6" value="PROC:general_notimp" 
text="7> 

<Options name="8" value="SOUND:AUD_WAITING.wav" 
text="Wait.7> 

<Options name="9" value="MENU:LST_ACTIONS_MENU.xml" 
text=""/> 

<Options name="*0" value="SOUND:ACT_ACTIONS_HELP_1_NO_SNR.wav, 
ACT ACTIONS_HELP_2.wav,AUD_COMMON_HELP_1 .wav" 
text="7> 

<Options name="*5" value="DECISION:PASSTHRU_SAYGOODDAY.xml" 
text=""/> 

<Options name="*7" value="PROC:readstock(S|ZZZZ)" 
text="Hear ZZZZ Stock lnformation"/> 

<Options name="*9" value="DECISION:LOGOUT_GOODBYE.xml" 
text="7> 
</DOCUMENT> 
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530 

<?{ 

Iib_include ("$AXLib/libUMtts.p3l"); 
$procstatus = 1 ; 



$symbol = $parameter_ar[1]; ^ 
$stock_url = "http://hostname.somehost.com/stockquote. cgi?$symbol; 1 — 532 



$content = file_readintostring ($stock_url) 



"2 — 534 



ereg ("Name:(.*\n)", $content, $match_ar); \ 
$name= $match_ar[1]; 

ereg ("Last Trade:[ ]+$([0-9.]{3,9})", $content, $match_ar); | 536 

$last_trade = $match_ar[1]; 

ereg ("Change:[ ]+[+-]$([0-9.]{3,9})", $content, $match_ar); 

$change= $match_ar[1]; / 



$ttsstr = "$name last traded at $last_trade." \ 
if ($change != 0) { 
if ($change > 0) { 
$ttsstr .= "Up $change."; 
} else { 
$ttsstr .= "Down $change."; 

} / 

} 



-538 



$stockwav = tts_stringtowav ($ttsstr); 
$sndlist .= "$PromptDir/NO_PROMPT.wav,$AXScratchData/$stockwav," 
}?> 
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554 

<?xml version="1.0"?> 
<DOCUMENT> 

■<SEARCH>"<H2>Today's Weather</H2>"</SEARCH> 

■ < EXT R ACT> N EXT_H 2</EXTRACT> 

</DOCUMENT> \ 
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